VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "ParagraphInfo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Public OutlineLevel As Integer
Public RangeEnd As Long
Public RangeStart As Long
Public Text As String

'Public Sub Init(ByVal p As Word.Paragraph)
'    OutlineLevel = p.OutlineLevel
'    RangeEnd = p.Range.End
'    RangeStart = p.Range.Start
'    Text = p.Range.Text
'End Sub

Public Sub Init2(ByVal p As wps.Paragraph)
    OutlineLevel = p.OutlineLevel
    RangeEnd = p.Range.End
    RangeStart = p.Range.Start
    Text = p.Range.Text
End Sub
